
MarketActor subclass: #Checker
  instanceVariableNames: 
    'bagger customer '
  classVariableNames: ''
  poolDictionaries: '' !

!Checker class methods !

alternateImageName 
    ^'PersonLeft'.! !


!Checker methods !

bagger:aBagger 
    bagger := aBagger.!

checkOutCustomer
    customer := self receive.!

gotIt
    running
        ifTrue:[
            self
                display;
                send:#removeItemFromCart to:customer].!

release
    bagger := nil.  customer := nil.  super release.!

takeItem
    running
        ifTrue:[
            self
                animate;
                send:#takeItem to:bagger;
                sleep:1;
                send:#gotIt to:customer].! !
